home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / prgmming / pmd110 / wmem.dif < prev    next >
Text File  |  1994-11-13  |  4KB  |  160 lines
  1. *** c:\bp\rtl\sys\wmem.asm    Wed Oct 28 07:00:00 1992
  2. --- wmem.asm    Thu Aug 25 01:01:00 1994
  3. ***************
  4. *** 41,44 ****
  5. --- 41,49 ----
  6.       ENDIF
  7.   
  8. + ;;MemCheck externals
  9. + 
  10. +         EXTRN   CheckMEM:BYTE,StoreAlloc:DWORD,FreeAlloc:DWORD
  11. + 
  12. + 
  13.   ; Local variables
  14.   
  15. ***************
  16. *** 45,48 ****
  17. --- 50,57 ----
  18.   AllocSize    DW    ?
  19.   
  20. + ;; Memchecker variable
  21. + 
  22. + MemSize         DW      ?
  23. + 
  24.   DATA    ENDS
  25.   
  26. ***************
  27. *** 186,192 ****
  28.   NewMemory:
  29.   
  30.       OR    AX,AX
  31.       JE    @@7
  32. !     MOV    AllocSize,AX
  33.   @@1:    CMP    AX,HeapLimit
  34.       JB    @@2
  35. --- 195,220 ----
  36.   NewMemory:
  37.   
  38. + ;; memchecker code
  39. +         mov     [MemSize],ax
  40. + 
  41.       OR    AX,AX
  42.       JE    @@7
  43. ! 
  44. ! ;; memchecker code
  45. ! ;; add 8 or 16 bytes to allocated memory for overflow checking
  46. ! 
  47. !         cmp     CheckMem,0             ; is MemCheck code enabled?
  48. !         je      @@m1
  49. !         cmp     ax,65512               ; 65536-8-16
  50. !         ja      @@CheckUpperArea
  51. !         add     ax,16
  52. !         jmp     short @@m1
  53. ! @@CheckUpperArea:
  54. !         cmp     ax,65520               ; 65536-8-8
  55. !         ja      @@m1
  56. !         add     ax,8
  57. ! 
  58. ! @@m1:
  59. !         MOV    AllocSize,AX
  60.   @@1:    CMP    AX,HeapLimit
  61.       JB    @@2
  62. ***************
  63. *** 218,222 ****
  64.   @@7:    XOR    AX,AX
  65.       CWD
  66. ! @@6:    RET
  67.   
  68.   ; Allocate global block
  69. --- 246,295 ----
  70.   @@7:    XOR    AX,AX
  71.       CWD
  72. ! @@6:
  73. ! 
  74. ! ;; memchecker code
  75. !         jc      @@NoCheck         ; if error do not check
  76. !         cmp     CheckMem,0        ; is MemCheck code enabled
  77. !         je      @@NoCheck
  78. !         mov     cx,MemSize
  79. !         jcxz    @@NoCheck         ; if size = 0, don't check
  80. !         cmp     dx,0              ; check if returned pointer is nil
  81. !         je      @@NoCheck         ; don't check
  82. ! 
  83. !         cmp     cx,65520          ; is there room for upper memory check?
  84. !         ja      @@StorePointer
  85. !         mov     si,ax             ; save ax
  86. !         mov     es,dx
  87. !         mov     di,ax
  88. !         add     di,cx
  89. !         cmp     cx,65512
  90. !         ja      @@m2
  91. !         add     di,8              ; correct if we have a lower memory also
  92. ! @@m2:   mov     ax,0cccch         ; fill last 8 bytes with 0CCh
  93. !         mov     cx,4
  94. !         cld
  95. !         rep     stosw
  96. !         mov     ax,si             ; restore ax
  97. !         mov     cx,MemSize
  98. ! 
  99. !         cmp     cx,65512          ; is there room for lower memory check?
  100. !         ja      @@StorePointer
  101. !         mov     es,dx
  102. !         mov     di,ax
  103. !         mov     ax,0cccch         ; fill first 8 bytes with 0CCh
  104. !         mov     cx,4
  105. !         cld
  106. !         rep stosw
  107. !         mov     ax,di             ; first 8 bytes are skipped
  108. ! 
  109. ! @@StorePointer:
  110. !         push    dx                ; push ptr
  111. !         push    ax
  112. !         push    [MemSize]         ; else push size
  113. !         call    dword ptr [StoreAlloc]
  114. ! @@NoCheck:
  115. ! 
  116. !         RET
  117. ! ;ENDP
  118.   
  119.   ; Allocate global block
  120. ***************
  121. *** 356,359 ****
  122. --- 429,457 ----
  123.   DisMemory:
  124.   
  125. + ;; memchecker code
  126. +         cmp     CheckMem,0
  127. +         je      @@DisMemoryStart
  128. +         or      ax,ax                  ; if Size = 0
  129. +         jne     @@m1
  130. +         jmp     @@4                    ; then no check
  131. + @@m1:
  132. +         push    bx                     ; push ptr
  133. +         push    cx
  134. +         push    ax                     ; push size
  135. +         call    dword ptr [FreeAlloc]
  136. + 
  137. + ;; add the extra overflow memory area size
  138. +         cmp     ax,65512               ; 65536-8-16
  139. +         ja      @@UpperArea
  140. +         add     ax,16
  141. +         sub     cx,8
  142. +         jmp     short @@DisMemoryStart
  143. + @@UpperArea:
  144. +         cmp     ax,65520               ; 65536-8-8
  145. +         ja      @@DisMemoryStart
  146. +         add     ax,8
  147. + 
  148. + @@DisMemoryStart:
  149. + 
  150.       OR    AX,AX
  151.       JE    @@4
  152. ***************
  153. *** 429,432 ****
  154. --- 527,531 ----
  155.   @@9:    MOV    HeapList,AX
  156.       JMP    @@6
  157. + 
  158.   
  159.   CODE    ENDS
  160.